object FarkForm: TFarkForm
  Left = 76
  Top = 73
  Width = 507
  Height = 347
  ActiveControl = MaskEdFI
  Caption = '�R�N F�YATLARINDAK� FARK TOPLAMLARI'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 96
    Top = 3
    Width = 210
    Height = 46
    Caption = 
      'Tarihinden �tibaren Stoktaki Fiyat� De�i�mi�  �r�nlerin Fiyat Fa' +
      'rklar�n�n Toplam�n� Bul'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object LabelAd: TLabel
    Left = 9
    Top = 278
    Width = 7
    Height = 15
    Caption = '_'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelTOP: TLabel
    Left = 9
    Top = 300
    Width = 14
    Height = 15
    Caption = '__'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 14
    Top = 54
    Width = 48
    Height = 14
    Caption = 'ARANAN:'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object LabelARA: TLabel
    Left = 70
    Top = 54
    Width = 12
    Height = 14
    Caption = '__'
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 329
    Top = 32
    Width = 36
    Height = 13
    Caption = '�lerleme'
  end
  object BitBtn1: TBitBtn
    Left = 328
    Top = 3
    Width = 160
    Height = 25
    Caption = 'Listeyi A� ve Toplam� Ver'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object MaskEdFI: TMaskEdit
    Tag = 1
    Left = 15
    Top = 3
    Width = 74
    Height = 23
    EditMask = '99/99/9999;1;_'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    TabOrder = 1
    Text = '  .  .    '
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 70
    Width = 484
    Height = 156
    Color = clSilver
    DataSource = DS_Urun
    FixedColor = clSilver
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    TitleFont.Color = clRed
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
    OnKeyPress = DBGrid1KeyPress
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 233
    Width = 484
    Height = 43
    Color = clSilver
    DataSource = DS_Fiyat
    FixedColor = clSilver
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    TitleFont.Color = clRed
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
  end
  object BitBtn2: TBitBtn
    Left = 416
    Top = 288
    Width = 75
    Height = 25
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Kind = bkClose
  end
  object ProgressBar1: TProgressBar
    Left = 328
    Top = 48
    Width = 160
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 5
  end
  object QFiyat: TQuery
    OnCalcFields = QFiyatCalcFields
    DatabaseName = 'ECZ'
    DataSource = DS_Urun
    Params.Data = {
      0100030006494C41434E4F000304000000000001000946495941544152494800
      0904005A950A00010006494C41434E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ILACNO,FIYAT,FITARIH'
      'FROM URFAYAR'
      'WHERE  FITARIH =(SELECT MAX(FITARIH) FROM URFAYAR  '
      'WHERE (ILACNO=:ILACNO) AND( FITARIH<=:FIYATARIH))'
      'AND (ILACNO=:ILACNO)')
    Left = 232
    Top = 200
    object QFiyatILACNO: TIntegerField
      DisplayWidth = 12
      FieldName = 'ILACNO'
      Visible = False
    end
    object QFiyatFITARIH: TDateTimeField
      DisplayLabel = 'Esk.Fyt.Trh.'
      DisplayWidth = 13
      FieldName = 'FITARIH'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object QFiyatFIYAT: TCurrencyField
      DisplayLabel = 'ESK� F�YATI'
      DisplayWidth = 18
      FieldName = 'FIYAT'
    end
    object QFiyatFIYATFARKI: TCurrencyField
      Calculated = True
      DisplayLabel = 'F�YAT FARKI'
      DisplayWidth = 18
      FieldName = 'FIYATFARKI'
    end
    object QFiyatBIRIMFARK: TCurrencyField
      Calculated = True
      DisplayLabel = 'B�R�M FYT. FARK'
      DisplayWidth = 18
      FieldName = 'BIRIMFARK'
    end
  end
  object QUrun: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {010001000666797454524800090400CA1F0B000001}
    SQL.Strings = (
      'SELECT'
      'ILACNO,'
      'ILACAD,'
      'MIKTAR,'
      'FIYAT,'
      'FIYATARIH'
      'FROM URUN'
      'WHERE '
      '(MIKTAR IS NOT NULL) AND (MIKTAR>0) AND'
      '(FIYATARIH>=:fytTRH)'
      'ORDER BY ILACAD')
    Left = 120
    Top = 120
    object QUrunILACNO: TIntegerField
      FieldName = 'ILACNO'
      Visible = False
    end
    object QUrunILACAD: TStringField
      DisplayLabel = '�R�N ADI'
      FieldName = 'ILACAD'
      Size = 36
    end
    object QUrunMIKTAR: TIntegerField
      DisplayLabel = 'M�KTARI'
      DisplayWidth = 7
      FieldName = 'MIKTAR'
    end
    object QUrunFIYAT: TCurrencyField
      DisplayLabel = 'F�YAT'
      DisplayWidth = 18
      FieldName = 'FIYAT'
    end
    object QUrunFIYATARIH: TDateField
      DisplayLabel = 'Fyt.Tarihi'
      FieldName = 'FIYATARIH'
    end
  end
  object DS_Urun: TDataSource
    DataSet = QUrun
    Left = 208
    Top = 96
  end
  object DS_Fiyat: TDataSource
    DataSet = QFiyat
    Left = 264
    Top = 208
  end
end